home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / finger_1 / tokens / machine.p < prev    next >
Text File  |  1991-11-14  |  387b  |  26 lines
  1. unit MACHINE;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     const
  13.         machine_id = -16413;
  14.  
  15.     procedure Main (var p: parameterRecord);
  16.         var
  17.             sh: stringHandle;
  18.     begin
  19.         sh := GetString(machine_id);
  20.         if sh <> nil then
  21.             p.returnValue^ := sh^^ { Don't release it, someone else may be using it }
  22.         else
  23.             p.returnValue^ := '?';
  24.     end;
  25.  
  26. end.